home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8602.d64 / sound-editor + (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  23KB  |  1,189 lines
  1. 0 IFA>1THENRETURN
  2. 1000 :
  3. 1005 :
  4. 1010 :
  5. 1015 :
  6. 1020 :
  7. 1025 :
  8. 1030 :
  9. 1035 :
  10. 1040 :
  11. 1045 :
  12. 1050 :
  13. 1055 :
  14. 1060 IFW=0THENW=1:LOAD"WERSI",8,1
  15. 1065 IFM=7THEN7665
  16. 1068 IFM=7.5THEN7960
  17. 1070 :
  18. 1080 IFA=0THENA=.1:LOAD"MODULATOR",8,1
  19. 1082 IFA=.1THENA=.2:LOAD"SEQUENCER.OBJ",8,1
  20. 1084 IFA=.2THENA=1:LOAD"SEQ.ERG.OBJ",8,1
  21. 1120 :
  22. 1130 IFA=0THENA=1:LOAD"MODULATOR",8,1
  23. 1140 :
  24. 1150 :
  25. 1155 POKE56,144:CLR
  26. 1160 DIMV%(8,255),TN%(255),TH(49)
  27. 1165 DIMBF(2),T(2),O(2),OF(2),S(2)
  28. 1170 DIMC1(2),C(2),AD(2),SR(2)
  29. 1175 DIMBL$(6),KV$(3),KF$(6),MD$(3)
  30. 1180 DIMTN$(11)
  31. 1185 :
  32. 1190 GOSUB8000
  33. 1200 GOSUB4000
  34. 1210 :
  35. 1500 :
  36. 1510 :
  37. 1520 :
  38. 1530 SYS51300:GETA$:IFA$=""THEN1530
  39. 1535 IFA$="[215]"THENGOSUB20000:GOTO1530
  40. 1540 A=ASC(A$)
  41. 1550 SYSGS,V%(M,A)
  42. 1560 GOTO1530
  43. 2000 :
  44. 2010 :
  45. 2020 :
  46. 2025 POKE650,0
  47. 2030 F=TH(TN%(A)):AD=MO+72:X=PEEK(AD)
  48. 2035 IFS(0)THENSYSDO,MO,F*BF(0):POKESI+4,C1(0)
  49. 2040 IFS(1)THENSYSDO,MO+7,F*BF(1):POKESI+11,C1(1)
  50. 2050 IFS(2)THENSYSDO,MO+14,F*BF(2):POKESI+18,C1(2)
  51. 2090 IFEGTHENPOKEAD,XOR1
  52. 2110 IFSUTHENPOKE650,128:RETURN
  53. 2120 IFPEEK(203)<>64ANDPEEK(198)=0THEN2120
  54. 2130 POKEAD,XAND254
  55. 2140 POKESI+4,C(0)
  56. 2150 POKESI+11,C(1):POKESI+18,C(2)
  57. 2160 POKE650,128:RETURN
  58. 2500 :
  59. 2510 :
  60. 2520 :
  61. 2530 :
  62. 2550 PW=PW+P2:IFPW>=PMTHENPW=PW-PM
  63. 2555 SYSGT,PV
  64. 2560 PW=PW+P1:IFPW>=PMTHENPW=PW-PM
  65. 2565 SYSGT,PV
  66. 2570 PW=PW-P1:IFPW<0THENPW=PW+PM
  67. 2575 SYSGT,PV
  68. 2580 PW=PW-P2:IFPW<0THENPW=PW+PM
  69. 2585 SYSGT,PV
  70. 2600 :
  71. 2605 :
  72. 2610 SYSDO,PA,PW:L=LEN(STR$(PW))
  73. 2620 SYSPR,3+LN,4,BL$(6-L);F2$;PW
  74. 2625 RETURN
  75. 2630 :
  76. 2635 :
  77. 2640 POKEPA,PW:L=LEN(STR$(PW))
  78. 2650 SYSPR,3+LN,11,BL$(4-L);F2$;PW
  79. 2655 RETURN
  80. 2660 :
  81. 2665 :
  82. 2670 POKEPA,PW:L=LEN(STR$(PW))
  83. 2680 SYSPR,3+LN,16,BL$(4-L);F2$;PW
  84. 2685 RETURN
  85. 2690 :
  86. 2695 :
  87. 2700 IFA>136ORA<133THENRETURN
  88. 2705 B=A-133
  89. 2710 POKEPA,(PEEK(PA)AND231)OR(B*8)
  90. 2715 SYSPR,3+LN,21,F2$;KV$(B)
  91. 2717 SYSPR,6,34,F2$;KF$(B):RETURN
  92. 2720 :
  93. 2725 :
  94. 2730 IFA>135ORA<133THENRETURN
  95. 2735 B=A-132
  96. 2740 POKEPA,(PEEK(PA)AND249)OR(B*2)
  97. 2745 SYSPR,3+LN,28,F2$;MD$(B):RETURN
  98. 2750 :
  99. 2755 :
  100. 2760 POKEPA,PW:L=LEN(STR$(PW))
  101. 2765 SYSPR,7,S,BL$(4-L);F2$;PW:RETURN
  102. 2770 :
  103. 2775 :
  104. 2780 B=-(A>134)
  105. 2785 POKEPA,(PEEK(PA)AND247)OR(B*8)
  106. 2790 SYSPR,7,29,F2$;CHR$(43+2*B)
  107. 2795 RETURN
  108. 2810 :
  109. 2815 :
  110. 2820 IFA>135ORA<133THENRETURN
  111. 2825 B=A-132
  112. 2830 POKEPA,(PEEK(PA)AND249)OR(B*2)
  113. 2835 SYSPR,7,33,F2$;MD$(B):RETURN
  114. 2840 :
  115. 2845 :
  116. 2850 POKEPA,PWAND7:POKEPA+1,INT(PW/8)
  117. 2855 L=LEN(STR$(PW))
  118. 2860 SYSPR,5,2,BL$(5-L);F2$;PW:RETURN
  119. 2865 :
  120. 2870 :
  121. 2875 RF=(RFAND15)+16*PW:POKEPA,RF
  122. 2880 L=LEN(STR$(PW))
  123. 2885 SYSPR,5,9,BL$(3-L);F2$;PW:RETURN
  124. 2890 :
  125. 2895 :
  126. 2900 IFA>136ORA<133THENRETURN
  127. 2905 B=A-133
  128. 2910 X=2^B:X1=255-X
  129. 2915 Y=RFANDX
  130. 2920 RF=(RFANDX1)OR(X-Y):POKEPA,RF
  131. 2925 Y=-128*(Y=0):AD=1024+(5+B)*40+15
  132. 2930 FORI=ADTOAD+5
  133. 2935 POKEI,(PEEK(I)AND127)ORY
  134. 2940 NEXT:RETURN
  135. 2945 :
  136. 2950 :
  137. 2955 IFA>136ORA<133THENRETURN
  138. 2960 B=A-129
  139. 2965 X=2^B:X1=255-X
  140. 2970 PW=PEEK(PA):Y=PWANDX
  141. 2975 POKEPA,(PWANDX1)OR(X-Y)
  142. 2980 Y=-128*(Y=0):AD=1024+(1+B)*40+25
  143. 2985 FORI=ADTOAD+3
  144. 2990 POKEI,(PEEK(I)AND127)ORY
  145. 2995 NEXT:RETURN
  146. 3000 :
  147. 3005 :
  148. 3010 POKEPA,(PEEK(PA)AND240)ORPW
  149. 3015 L=LEN(STR$(PW))
  150. 3020 SYSPR,5,31,BL$(3-L);F2$;PW:RETURN
  151. 3050 :
  152. 3052 :
  153. 3054 IFA<>134THEN3064
  154. 3056 :
  155. 3058 OF=OF+1:IFOF<=50THEN3110
  156. 3062 OF=-49:GOTO3076
  157. 3064 IFA<>135THEN3074
  158. 3066 :
  159. 3068 OF=OF-1:IFOF>=-49THEN3110
  160. 3072 OF=50:GOTO3084
  161. 3074 IFA<>133THEN3082
  162. 3076 :
  163. 3078 T=T+1:IFT<=11THEN3110
  164. 3080 T=0:GOTO3090
  165. 3082 IFA<>136THENRETURN
  166. 3084 :
  167. 3086 T=T-1:IFT>=0THEN3110
  168. 3088 T=11:GOTO3096
  169. 3090 :
  170. 3092 O=O+1:IFO<=5THEN3110
  171. 3094 O=0:GOTO3110
  172. 3096 :
  173. 3098 O=O-1:IFO>=0THEN3110
  174. 3100 O=5:T=10
  175. 3110 :
  176. 3112 IFT=11ANDO=5THENT=0:O=0
  177. 3114 BF=440*2^(O-4+(T-9)/12+OF/1200)
  178. 3116 O(SN)=O:T(SN)=T:OF(SN)=OF
  179. 3118 BF(SN)=BF*17.0327
  180. 3120 SYSDO,MO+7*SN,F*BF(SN)
  181. 3122 :
  182. 3124 SYSPR,3+SN,3,F2$;O
  183. 3126 SYSPR,3+SN,2,TN$(T)
  184. 3128 SYSPR,3+SN,5,RIGHT$(" "+STR$(OF),3)
  185. 3130 RETURN
  186. 3150 :
  187. 3155 :
  188. 3160 SYSDO,PA,PW
  189. 3165 SYSPR,3+SN,9,F2$;RIGHT$("  "+STR$(PW),4)
  190. 3170 RETURN
  191. 3175 :
  192. 3180 :
  193. 3185 AD(SN)=(AD(SN)AND15)ORPW*16
  194. 3190 POKEPA,AD(SN)
  195. 3195 SYSPR,3+SN,14,F2$;RIGHT$(STR$(PW),2)
  196. 3200 RETURN
  197. 3205 :
  198. 3210 :
  199. 3215 AD(SN)=(AD(SN)AND240)ORPW
  200. 3220 POKEPA,AD(SN)
  201. 3225 SYSPR,3+SN,17,F2$;RIGHT$(STR$(PW),2)
  202. 3230 RETURN
  203. 3235 :
  204. 3240 :
  205. 3245 SR(SN)=(SR(SN)AND15)ORPW*16
  206. 3250 POKEPA,SR(SN)
  207. 3255 SYSPR,3+SN,20,F2$;RIGHT$(STR$(PW),2)
  208. 3260 RETURN
  209. 3265 :
  210. 3270 :
  211. 3275 SR(SN)=(SR(SN)AND240)ORPW
  212. 3280 POKEPA,SR(SN)
  213. 3285 SYSPR,3+SN,23,F2$;RIGHT$(STR$(PW),2)
  214. 3290 RETURN
  215. 3300 :
  216. 3305 :
  217. 3310 IFA<>133ANDA<>134THEN3335
  218. 3315 :
  219. 3320 C(SN)=C(SN)OR2^(7-S)
  220. 3325 C1(SN)=C(SN)OR1
  221. 3330 SYSPR,3+SN,26+S,F2$;"1":GOTO3355
  222. 3335 :
  223. 3340 C(SN)=C(SN)AND255-2^(7-S)
  224. 3345 C1(SN)=C(SN)OR1
  225. 3350 SYSPR,3+SN,26+S,F2$;"0"
  226. 3355 :
  227. 3358 POKE50334+SN,C(SN)
  228. 3360 X=C(SN):IFSUTHENX=C1(SN)
  229. 3362 POKE984+SN,C(SN):POKE987+SN,C1(SN)
  230. 3365 POKESI+7*SN+4,X:RETURN
  231. 3370 :
  232. 3375 :
  233. 3380 POKEPA,PW:L=LEN(STR$(PW))
  234. 3385 SYSPR,3+SN,34,BL$(4-L);F2$;PW
  235. 3390 RETURN
  236. 3400 :
  237. 3405 :
  238. 3410 IFPW<40THENPW=40
  239. 3415 IFPW>480THENPW=480
  240. 3420 TE=PW:SYSDO,PA,INT(6E7/(24*TE))
  241. 3425 SYSPR,6,11,F2$;RIGHT$(STR$(PW),3)
  242. 3430 RETURN
  243. 3500 :
  244. 3510 :
  245. 3520 :
  246. 3525 SYSPR,15,10,F2$;"STIMME 1,2,3"
  247. 3530 GETA$:IFA$=""THEN3530
  248. 3540 IFA$="1"ORA$="2"ORA$="3"THEN3560
  249. 3550 GOTO3590
  250. 3560 I=VAL(A$)-1:S(I)=NOTS(I)
  251. 3565 POKE981+I,ABS(S(I))
  252. 3570 IFS(I)THENPRINTCHR$(18);
  253. 3580 SYSPR,21,31+2*I,F1$;A$;CHR$(146);
  254. 3590 SYSPR,15,10,F1$;"STIMME 1,2,3"
  255. 3595 RETURN
  256. 3600 :
  257. 3610 :
  258. 3620 :
  259. 3630 POKE650,64
  260. 3640 AD=MO+27:X=PEEK(AD):POKEAD,XOR1
  261. 3650 IFPEEK(203)<>64ANDPEEK(198)=0THEN3650
  262. 3660 POKEAD,XAND254:POKE650,128:RETURN
  263. 3700 :
  264. 3710 :
  265. 3720 :
  266. 3730 EG=NOTEG
  267. 3735 POKE990,ABS(EG)
  268. 3740 IFEGTHENPRINTCHR$(18);
  269. 3750 SYSPR,23,31,F1$;"SOFT-EG[146]":RETURN
  270. 3800 :
  271. 3810 :
  272. 3820 :
  273. 3830 SU=NOTSU
  274. 3835 POKE991,ABS(SU)
  275. 3840 POKE50344,-SU:IFSUTHENPRINTCHR$(18);
  276. 3850 SYSPR,22,31,F1$;"SUSTAIN[146]"
  277. 3860 IFNOTSUTHEN2140
  278. 3870 RETURN
  279. 4000 :
  280. 4010 :
  281. 4020 :
  282. 4030 M=0:PV=0:SYSCL:PRINT"";F1$
  283. 4040 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  284. 4045 PRINT" [194]         M O D U L A T O R          [146][194]"
  285. 4050 PRINT" [194]     THOMAS KRAETZIG       1985     [146][194]"
  286. 4055 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  287. 4100 SYSPR,6,1,F2$;"SH V";F1$;" STIMMEN"
  288. 4105 SYSPR,7,1,F2$;"   F";F1$;" FILTER/LAUTSTAERKE"
  289. 4110 SYSPR,8,1,F2$;"   L";F1$;" LFO"
  290. 4115 SYSPR,9,1,F2$;"   H";F1$;" HUELLKURVE (SOFT-EG)"
  291. 4120 SYSPR,10,1,F2$;"   K";F1$;" KSV "
  292. 4125 SYSPR,11,1,F2$;"SH S";F1$;" SOUNDS"
  293. 4130 SYSPR,12,1,F2$;"   D";F1$;" DISK"
  294. 4132 SYSPR,13,1,F2$;"   A";F1$;" SEQUENCER"
  295. 4135 RETURN
  296. 4200 :
  297. 4210 :
  298. 4220 :
  299. 4240 SYSPR,15,1,F2$;"V 1,2,3"
  300. 4245 SYSPR,15,10,F1$;"STIMME 1,2,3
  301. 4250 [158]PR,15,26,F2$;"S"
  302. 4255 [158]PR,15,32,F1$;"SUSTAIN"
  303. 4260 [158]PR,16,1,F2$;"SH SPACE"
  304. 4270 [158]PR,16,10,F1$;"EG (AB)-KOPPELN)"
  305. 4280 [158]PR,16,26,F2$;"SPACE"
  306. 4290 [158]PR,16,32,F1$;"EG  GATE"
  307. 4292 [158]PR,17,1,F2$;"X"
  308. 4294 [158]PR,17,10,F1$;"HAUPTMENUE"
  309. 4295 [158]PR,18,1,;"SH W     WERSIBOARD STIMMEN"
  310. 4300 [158]PR,19,0,F2$;
  311. 4310 [129]I[178]1[164]4
  312. 4320 [153]"  PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK WAIT":[130]
  313. 4330 [153]" QPEEKWPEEKEPEEKRPEEKTPEEKYPEEKUPEEKIPEEKOPEEKPPEEK@PEEK*PEEK^PEEK;PEEK="
  314. 4340 [158]PR,19,0,;
  315. 4350 [129]I[178]1[164]2
  316. 4360 [153]"           ":[130]
  317. 4370 [153]" 2356790-\C"
  318. 4380 [158]PR,19,31,F1$;"AKTIV:"
  319. 4390 [129]I[178]0[164]2
  320. 4400 A$[178][201]([196](I[170]1),1)
  321. 4410 [141]3570:[130]I
  322. 4420 [141]3840:[141]3740
  323. 4430 [142]
  324. 4500 :
  325. 4505 :
  326. 4510 :
  327. 4515 M[178]1:PV[178]3050:[158]CL:[153]"WAIT";F1$
  328. 4520 [153]"     F    PW   A  D  S  R CONTROL PORTA"
  329. 4525 [153]" ORLENLENLENLENLENLEN=LENLENLENLEN=LENLEN=LENLEN=LENLEN=LENLEN=LENLENLENLENLENLENLEN=LENLENLENLEN^"
  330. 4530 [129]I[178]1[164]3
  331. 4535 [153]" PEEK      PEEK    PEEK  PEEK  PEEK  PEEK  PEEK       PEEK    PEEK"
  332. 4540 [130]I
  333. 4545 [153]" /LENLENLENLENLENLEN>LENLENLENLEN>LENLEN>LENLEN>LENLEN>LENLEN>=======>LENLENLENLENEXP"
  334. 4550 [158]PR,7,26,"PEEKPEEKPEEKPEEKPEEKPEEK/LENLENSYNC"
  335. 4555 [158]PR,8,26,"PEEKPEEKPEEKPEEKPEEK/LENLENRING"
  336. 4560 [158]PR,9,1,F2$;"F1  ++";F1$
  337. 4565 [158]PR,9,26,"PEEKPEEKPEEKPEEK/LENLENTEST"
  338. 4570 [158]PR,10,1,F2$;"F3  +";F1$
  339. 4575 [158]PR,10,26,"PEEKPEEKPEEK/LENLENTRIAN"
  340. 4580 [158]PR,11,1,F2$;"F5  -";F1$
  341. 4585 [158]PR,11,26,"PEEKPEEK/LENLENSAWTOOTH"
  342. 4590 [158]PR,12,1,F2$;"F7  --";F1$
  343. 4595 [158]PR,12,26,"PEEK/LENLENSQUARE"
  344. 4600 [158]PR,13,26,"/LENLENNOISE"
  345. 4602 :
  346. 4604 A$[178]F2$:F2$[178]F1$
  347. 4606 [129]SN[178]0[164]2
  348. 4608 T[178]T(SN):O[178]O(SN):OF[178]OF(SN)
  349. 4610 [141]3122
  350. 4612 PW[178]([183](MO[170]7[172]SN[170]2)):[141]3165
  351. 4614 PW[178][181](AD(SN)[173]16):[141]3195
  352. 4616 PW[178]AD(SN)[175]15:[141]3225
  353. 4618 PW[178][181](SR(SN)[173]16):[141]3255
  354. 4620 PW[178]SR(SN)[175]15:[141]3285
  355. 4622 :
  356. 4624 B[178]C(SN):A[178]128
  357. 4626 [158]PR,3[170]SN,26,F1$;"0000000"
  358. 4628 [129]S[178]7[164]1[169][171]1
  359. 4630 [139](B[175]A)[167][158]PR,3[170]SN,33[171]S,"1"
  360. 4632 A[178]A[173]2:[130]S
  361. 4634 PA[178]MO[170]7[172]SN[170]4:PW[178][194](PA)
  362. 4636 [141]3370
  363. 4638 [130]SN
  364. 4640 F2$[178]A$
  365. 4642 SN[178]0:AV[178]4700:[158]GS,AV:[142]
  366. 4650 :
  367. 4652 :
  368. 4654 :
  369. 4656 SN[178]SN[171]1:[139]SN[179]0[167]SN[178]2
  370. 4658 [141]5815:[158]GT,AV
  371. 4660 :
  372. 4662 SN[178]SN[170]1:[139]SN[177]2[167]SN[178]0
  373. 4664 [141]5815:[158]GT,AV
  374. 4666 :
  375. 4668 [139]AV[179][177]4880[167]4674
  376. 4670 S[178]S[170]1:[139]S[177]6[167]AV[178]4910
  377. 4672 [137]4678
  378. 4674 AV[178]AV[170]30:[139]AV[177]4910[167]AV[178]4700
  379. 4676 [139]AV[178]4880[167]S[178]0
  380. 4678 [141]5815:[158]GT,AV
  381. 4680 :
  382. 4682 [139]AV[179][177]4880[167]4688
  383. 4684 S[178]S[171]1:[139]S[179]0[167]AV[178]4850
  384. 4686 [137]4692
  385. 4688 AV[178]AV[171]30:[139]AV[179]4700[167]AV[178]4910
  386. 4690 [139]AV[178]4880[167]S[178]6
  387. 4692 [141]5815:[158]GT,AV
  388. 4700 :
  389. 4702 :
  390. 4704 PB[178]FA[170]40[172](SN[170]3)[170]2
  391. 4706 [129]I[178]PB[164]PB[170]5:[151]I,F2:[130]
  392. 4708 T[178]T(SN):O[178]O(SN):OF[178]OF(SN)
  393. 4710 PA[178]MO[170]7[172]SN:PV[178]3050:[142]
  394. 4730 :
  395. 4732 :
  396. 4734 PB[178]FA[170]40[172](SN[170]3)[170]9
  397. 4736 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  398. 4738 PA[178]MO[170]7[172]SN[170]2:PW[178][183](PA):PM[178]4096
  399. 4740 P1[178]1:P2[178]50:PV[178]3150:[142]
  400. 4760 :
  401. 4762 :
  402. 4764 PB[178]FA[170]40[172](SN[170]3)[170]14
  403. 4766 [151]PB,F2:[151]PB[170]1,F2
  404. 4768 PA[178]SI[170]7[172]SN[170]5:PW[178][181](AD(SN)[173]16)
  405. 4770 PM[178]16:P1[178]1:P2[178]1:PV[178]3175:[142]
  406. 4790 :
  407. 4792 :
  408. 4794 PB[178]FA[170]40[172](SN[170]3)[170]17
  409. 4796 [151]PB,F2:[151]PB[170]1,F2
  410. 4798 PA[178]SI[170]7[172]SN[170]5:PW[178]AD(SN)[175]15
  411. 4800 PM[178]16:P1[178]1:P2[178]1:PV[178]3205:[142]
  412. 4820 :
  413. 4822 :
  414. 4824 PB[178]FA[170]40[172](SN[170]3)[170]20
  415. 4826 [151]PB,F2:[151]PB[170]1,F2
  416. 4828 PA[178]SI[170]7[172]SN[170]6:PW[178][181](SR(SN)[173]16)
  417. 4830 PM[178]16:P1[178]1:P2[178]1:PV[178]3235:[142]
  418. 4850 :
  419. 4852 :
  420. 4854 PB[178]FA[170]40[172](SN[170]3)[170]23
  421. 4856 [151]PB,F2:[151]PB[170]1,F2
  422. 4858 PA[178]SI[170]7[172]SN[170]6:PW[178]SR(SN)[175]15
  423. 4860 PM[178]16:P1[178]1:P2[178]1:PV[178]3265:[142]
  424. 4880 :
  425. 4882 :
  426. 4884 PB[178]FA[170]40[172](SN[170]3)[170]26[170]S
  427. 4886 [151]PB,F2
  428. 4888 PA[178]SI[170]7[172]SN[170]4:PV[178]3300:[142]
  429. 4910 :
  430. 4912 :
  431. 4914 PB[178]FA[170]40[172](SN[170]3)[170]35
  432. 4916 [129]I[178]0[164]2:[151]PB[170]I,F2:[130]
  433. 4918 PA[178]MO[170]7[172]SN[170]4:PW[178][194](PA):PM[178]256
  434. 4920 P1[178]1:P2[178]10:PV[178]3370:[142]
  435. 5000 :
  436. 5005 :
  437. 5010 :
  438. 5015 M[178]2:PV[178]0:[158]CL:[153]"WAIT";F1$
  439. 5020 [153]"FILTER/LAUTSTAERKE"
  440. 5025 [153]" ORLENLENLENLENLEN=LENLENLENLENLEN=LENLENLENLENLENLENLENLEN=LENLENLENLENLENLENLEN=LENLENLENLEN^"
  441. 5030 [153]" PEEKFILTFPEEK RES PEEKSCHALTERPEEK MODUS PEEKLAUTPEEK"
  442. 5035 [153]" -LENLENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLENLENLENLENLEN(null)LENLENLENLENLENLENLEN(null)LENLENLENLEN<"
  443. 5040 [153]" PEEK     PEEK     PEEK FILT1  PEEK   LP  PEEK    PEEK"
  444. 5045 [153]" -LENLENLENLENLEN>LENLENLENLENLEN< FILT2  PEEK   BP  -LENLENLENLENEXP"
  445. 5050 [153]" PEEK           PEEK FILT3  PEEK   HP  PEEK"
  446. 5055 [153]" PEEK           PEEK FILTEX PEEK  3OFF PEEK"
  447. 5060 [153]" /LENLENLENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENEXP"
  448. 5065 [153]F2$;" F1";F1$;"    ++      FILT1      LP    ++"
  449. 5070 [153]F2$;" F3";F1$;"    +       FILT2      BP    +"
  450. 5075 [153]F2$;" F5";F1$;"    -       FILT3      HP    -"
  451. 5080 [153]F2$;" F7";F1$;"    -       FILTEX    3OFF   --"
  452. 5085 PW[178]([194](MO[170]21)[175]7)[170]8[172][194](MO[170]22)
  453. 5090 [158]PR,5,7[171][195]([196](PW)),PW
  454. 5095 PW[178][181](RF[173]16)
  455. 5100 [158]PR,5,12[171][195]([196](PW)),PW
  456. 5102 [139]RF[175]1[167][158]PR,5,15,"FILT1 WAIT"
  457. 5104 [139]RF[175]2[167][158]PR,6,15,"FILT2 WAIT"
  458. 5106 [139]RF[175]4[167][158]PR,7,15,"FILT3 WAIT"
  459. 5108 [139]RF[175]8[167][158]PR,8,15,"FILTEXWAIT"
  460. 5110 PW[178][194](MO[170]23)
  461. 5112 [139]PW[175]16[167][158]PR,5,25," LP WAIT"
  462. 5114 [139]PW[175]32[167][158]PR,6,25," BP WAIT"
  463. 5116 [139]PW[175]64[167][158]PR,7,25," HP WAIT"
  464. 5118 [139]PW[175]128[167][158]PR,8,25,"3OFFWAIT"
  465. 5120 PW[178][194](MO[170]23)[175]15
  466. 5122 [158]PR,5,34[171][195]([196](PW)),PW
  467. 5125 AV[178]5200:[158]GS,AV:[142]
  468. 5130 :
  469. 5135 :
  470. 5140 :
  471. 5145 AV[178]AV[170]50:[139]AV[177]5400[167]AV[178]5200
  472. 5150 [137]5165
  473. 5155 :
  474. 5160 AV[178]AV[171]50:[139]AV[179]5200[167]AV[178]5400
  475. 5165 [141]5815:A[178]PB[171]FA[171]200
  476. 5170 [139]A[179][177]15[175]A[179][177]25[167][158]GT,AV
  477. 5175 [129]J[178]1[164]3:PB[178]PB[170]40:[141]5815:[130]
  478. 5180 PB[178]PB[171]120:[158]GT,AV
  479. 5200 :
  480. 5205 :
  481. 5210 PB[178]FA[170]203
  482. 5215 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  483. 5220 PA[178]MO[170]21:PW[178][194](PA)[170]8[172][194](PA[170]1)
  484. 5225 PM[178]2048:P1[178]1:P2[178]50:PV[178]2850:[142]
  485. 5250 :
  486. 5255 :
  487. 5260 PB[178]FA[170]210
  488. 5265 [151]PB,F2:[151]PB[170]1,F2
  489. 5270 PA[178]SI[170]23:PW[178][181](RF[173]16)
  490. 5275 PM[178]16:P1[178]1:P2[178]1:PV[178]2875:[142]
  491. 5300 :
  492. 5310 PB[178]FA[170]215
  493. 5315 [129]I[178]0[164]120[169]40:[129]J[178]0[164]5
  494. 5320 [151]PB[170]I[170]J,F2:[130]:[130]
  495. 5325 PA[178]SI[170]23:PW[178]RF[175]15
  496. 5330 PV[178]2900:[142]
  497. 5350 :
  498. 5355 :
  499. 5360 PB[178]FA[170]225
  500. 5365 [129]I[178]0[164]120[169]40:[129]J[178]0[164]3
  501. 5370 [151]PB[170]I[170]J,F2:[130]:[130]
  502. 5375 PA[178]MO[170]23
  503. 5380 PV[178]2955:[142]
  504. 5400 :
  505. 5405 :
  506. 5410 PB[178]FA[170]232
  507. 5415 [151]PB,F2:[151]PB[170]1,F2
  508. 5420 PA[178]MO[170]23:PW[178][194](PA)[175]15
  509. 5425 PM[178]16:P1[178]1:P2[178]1:PV[178]3010:[142]
  510. 5500 :
  511. 5505 :
  512. 5510 :
  513. 5515 M[178]3:[158]CL:[153]"WAIT";F1$;
  514. 5520 [153]"   ORLENLENLENLENLENLEN=LENLENLENLEN=LENLENLENLEN=LENLENLENLENLENLEN=LENLENLENLENLEN^"
  515. 5525 [153]"   PEEK LFOF PEEKLFOPPEEKLFOAPEEKKURVE PEEKMODUSPEEK"
  516. 5530 [153]" ORLEN(null)LENLENLENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLEN^"
  517. 5535 [129]Z[178]3[164]9
  518. 5540 [158]PR,Z,1,"PEEK PEEK      PEEK    PEEK    PEEK      PEEK     PEEK    PEEK"
  519. 5545 [130]Z
  520. 5550 [158]PR,10,1,"/LEN>LENLENLENLENLENLEN>LENLENLENLEN>LENLENLENLEN>LENLENLENLENLENLEN>LENLENLENLENLEN>LENLENLENLENEXP"
  521. 5555 [153]F2$;" F1";F1$;"  ++     ++   ++  TRIAN  RESET"
  522. 5560 [153]F2$;" F3";F1$;"  +      +    +   SAWUP  HOLD"
  523. 5565 [153]F2$;" F5";F1$;"  -      -    -   SAWDWN RUN"
  524. 5570 [153]F2$;" F7";F1$;"  --     --   --  SQUARE"
  525. 5575 [129]LN[178]0[164]6
  526. 5580 Z[178]3[170]LN
  527. 5585 [158]PR,Z,2,[199](48[170]LN)
  528. 5590 PW[178][183](MO[170]32[170]5[172]LN)
  529. 5595 [158]PR,Z,10[171][195]([196](PW)),PW
  530. 5600 PW[178][194](MO[170]34[170]5[172]LN)
  531. 5605 [158]PR,Z,15[171][195]([196](PW)),PW
  532. 5610 PW[178][194](MO[170]35[170]5[172]LN)
  533. 5615 [158]PR,Z,20[171][195]([196](PW)),PW
  534. 5620 PW[178][194](MO[170]36[170]5[172]LN)
  535. 5625 [158]PR,Z,21,KV$((PW[175]24)[173]8)
  536. 5630 [158]PR,Z,28,MD$((PW[175]6)[173]2)
  537. 5640 [130]LN
  538. 5645 LN[178]0:AV[178]5830:[158]GS,AV:[142]
  539. 5650 :
  540. 5655 :
  541. 5670 :
  542. 5675 LN[178]LN[171]1:[139]LN[179]0[167]LN[178]6
  543. 5680 [141]5815:[158]GT,AV
  544. 5685 :
  545. 5690 LN[178]LN[170]1:[139]LN[177]6[167]LN[178]0
  546. 5695 [141]5815:[158]GT,AV
  547. 5700 :
  548. 5705 AV[178]AV[170]30:[139]AV[177]5950[167]AV[178]5830
  549. 5710 [141]5810:[158]GT,AV
  550. 5715 :
  551. 5720 AV[178]AV[171]30:[139]AV[179]5830[167]AV[178]5950
  552. 5725 [141]5810:[158]GT,AV
  553. 5800 :
  554. 5805 :
  555. 5810 [158]PR,6,34,"    "
  556. 5815 [129]I[178]PB[164]PB[170]6:[151]I,F1:[130]:[142]
  557. 5820 :
  558. 5825 :
  559. 5830 PB[178]FA[170]40[172](LN[170]3)[170]4
  560. 5835 [129]I[178]PB[164]PB[170]5:[151]I,F2:[130]
  561. 5840 PA[178]MO[170]32[170]5[172]LN:PW[178][183](PA):PM[178]65536
  562. 5845 P1[178]1:P2[178]200:PV[178]2610:[142]
  563. 5850 :
  564. 5855 :
  565. 5860 PB[178]FA[170]40[172](LN[170]3)[170]11
  566. 5865 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  567. 5870 PA[178]MO[170]34[170]5[172]LN:PW[178][194](PA):PM[178]256
  568. 5875 P1[178]1:P2[178]10:PV[178]2640:[142]
  569. 5880 :
  570. 5885 :
  571. 5890 PB[178]FA[170]40[172](LN[170]3)[170]16
  572. 5895 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  573. 5900 PA[178]MO[170]35[170]5[172]LN:PW[178][194](PA):PM[178]256
  574. 5905 P1[178]1:P2[178]10:PV[178]2670:[142]
  575. 5910 :
  576. 5915 :
  577. 5920 PB[178]FA[170]40[172](LN[170]3)[170]21
  578. 5925 [129]I[178]PB[164]PB[170]5:[151]I,F2:[130]
  579. 5930 PA[178]MO[170]36[170]5[172]LN:PV[178]2700
  580. 5935 B[178]([194](PA)[175]24)[173]8:[137]2717
  581. 5940 :
  582. 5945 :
  583. 5950 PB[178]FA[170]40[172](LN[170]3)[170]28
  584. 5955 [129]J[178]PB[164]PB[170]4:[151]J,F2:[130]
  585. 5960 PA[178]MO[170]36[170]5[172]LN
  586. 5965 PV[178]2730:[142]
  587. 6000 :
  588. 6010 :
  589. 6020 :
  590. 6030 M[178]4:[158]CL:[153]"WAIT";F1$
  591. 6040 [153]" SOFTWARE-EG":[153]:[153]
  592. 6050 [153]" ORLENLENLENLEN=LENLENLENLEN=LENLENLENLEN=LENLENLENLEN=LENLENLENLEN=LENLENLENLENLEN=LENLENLENLENLEN^"
  593. 6060 [153]" PEEK  A PEEK  D PEEK  S PEEK  R PEEK EGAPEEK FORMPEEKMODUSPEEK"
  594. 6070 [153]" -LENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLENLEN(null)LENLENLENLENLEN<"
  595. 6080 [153]" PEEK    PEEK    PEEK    PEEK    PEEK    PEEK     PEEK     PEEK"
  596. 6090 [153]" /LENLENLENLEN>LENLENLENLEN>LENLENLENLEN>LENLENLENLEN>LENLENLENLEN>LENLENLENLENLEN>LENLENLENLENLENEXP"
  597. 6100 [158]PR,10,1,F2$;"F1":[153]" F3"
  598. 6110 [153]" F5":[153]" F7";F1$
  599. 6120 [158]PR,10,13,"++                  RESET"
  600. 6130 [158]PR,11,13,"+               +   HOLD"
  601. 6140 [158]PR,12,13,"-               -   RUN"
  602. 6150 [158]PR,13,13,"--"
  603. 6160 [129]I[178]0[164]4
  604. 6170 PW[178][194](MO[170]67[170]I)
  605. 6180 [158]PR,7,6[170]5[172]I[171][195]([196](PW)),PW
  606. 6190 [130]I
  607. 6210 PW[178][194](MO[170]72)
  608. 6220 [158]PR,7,29,[199](43[170](PW[175]8)[173]4)
  609. 6230 [158]PR,7,33,MD$((PW[175]6)[173]2)
  610. 6240 AV[178]6310:AN[178]0:[158]GT,AV
  611. 6300 :
  612. 6305 :
  613. 6310 PB[178]FA[170]282[170]5[172]AN:S[178]2[170]5[172]AN
  614. 6315 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  615. 6320 PA[178]MO[170]67[170]AN:PW[178][194](PA)
  616. 6325 PM[178]256:[139]AN[178]0[167]PM[178]129
  617. 6330 P1[178]1:P2[178]10:PV[178]2760:[142]
  618. 6335 :
  619. 6340 :
  620. 6345 PB[178]FA[170]280[170]27:[151]PB[170]2,F2
  621. 6350 PA[178]MO[170]72:PV[178]2780:[142]
  622. 6370 :
  623. 6375 :
  624. 6380 PB[178]FA[170]280[170]33
  625. 6385 [129]I[178]PB[164]PB[170]4:[151]I,F2:[130]
  626. 6390 PA[178]MO[170]72:PV[178]2820:[142]
  627. 6395 :
  628. 6400 :
  629. 6405 :
  630. 6410 [139]AV[179][177]6310[167]6420
  631. 6415 AN[178]AN[171]1:[139]AN[177][178]0[167]6430
  632. 6420 AV[178]AV[171]35:AN[178]4
  633. 6425 [139]AV[179]6310[167]AV[178]6380
  634. 6430 [141]5815:[158]GT,AV
  635. 6435 :
  636. 6440 [139]AV[179][177]6310[167]6450
  637. 6445 AN[178]AN[170]1:[139]AN[179][178]4[167]6460
  638. 6450 AV[178]AV[170]35
  639. 6455 [139]AV[177]6380[167]AV[178]6310:AN[178]0
  640. 6460 [141]5815:[158]GT,AV
  641. 6500 :
  642. 6510 :
  643. 6520 :
  644. 6530 M[178]5:PV[178]0:[153]"WAIT";:[158]CL
  645. 6540 [158]PR,1,1,F1$;"KREUZSCHIENEN-VERTEILER"
  646. 6550 [158]PR,3,1,"E    LFO"
  647. 6560 [158]PR,4,1,"G6543210"
  648. 6570 [158]PR,5,1,F2$;"TOTOTOTOTOTOTOTO"
  649. 6580 A$[178]F2$[170]"THEN"[170]F1$[170]"        "[170]F2$[170]"(null) "[170]F1$
  650. 6590 [153]A$;"F1";F2$;"     CURSORTASTEN"
  651. 6600 [153]A$;"F2"
  652. 6610 [153]A$;"F3"
  653. 6620 [153]A$;"P1";F2$;"     F1 ";F1$;"VERBINDUNG"
  654. 6630 [153]A$;"P2"
  655. 6640 [153]A$;"P3";F2$;"     F7 ";F1$;"KEINE VERBINDUNG"
  656. 6650 [153]A$;"FILT"
  657. 6660 [153]A$;"LAUT"
  658. 6670 [153]F2$;" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  659. 6680 [129]Z[178]0[164]7:[141]6730:[130]
  660. 6685 Z[178]0:S[178]7:[151]55296[170]40[172](6[170]Z)[170]8[171]S,F2
  661. 6690 [142]
  662. 6700 :
  663. 6710 :
  664. 6720 :
  665. 6730 B[178][194](MO[170]24[170]Z):A[178]128
  666. 6740 [158]PR,6[170]Z,1,F1$;"00000000"
  667. 6750 [139]B[178]0[167][142]
  668. 6760 [129]S[178]7[164]0[169][171]1
  669. 6770 [139](B[175]A)[167][158]PR,6[170]Z,8[171]S,"1";
  670. 6780 A[178]A[173]2:[130]S
  671. 6790 [153]F1$;:[142]
  672. 6800 :
  673. 6810 :
  674. 6820 :
  675. 6830 [151]55296[170]40[172](6[170]Z)[170]8[171]S,F1
  676. 6840 Z[178](Z[171]1)[175]7:[137]6910
  677. 6850 [151]55296[170]40[172](6[170]Z)[170]8[171]S,F1
  678. 6860 Z[178](Z[170]1)[175]7:[137]6910
  679. 6870 [151]55296[170]40[172](6[170]Z)[170]8[171]S,F1
  680. 6880 S[178](S[170]1)[175]7:[137]6910
  681. 6890 [151]55296[170]40[172](6[170]Z)[170]8[171]S,F1
  682. 6900 S[178](S[171]1)[175]7:[137]6910
  683. 6910 [151]55296[170]40[172](6[170]Z)[170]8[171]S,F2
  684. 6915 [142]
  685. 6920 :
  686. 6925 :
  687. 6930 :
  688. 6935 AD[178]MO[170]24[170]Z
  689. 6940 [151]AD,[194](AD)[176]2[174]S
  690. 6950 [151]1024[170]40[172](6[170]Z)[170]8[171]S,177:[142]
  691. 6960 :
  692. 6965 :
  693. 6970 :
  694. 6975 AD[178]MO[170]24[170]Z
  695. 6980 [151]AD,[194](AD)[175](255[171]2[174]S)
  696. 6990 [151]1024[170]40[172](6[170]Z)[170]8[171]S,176:[142]
  697. 7000 :
  698. 7005 :
  699. 7010 :
  700. 7015 M[178]6:PV[178]0:[158]CL:[153]"WAIT";F2$
  701. 7020 [158]PR,1,8,"A           B           C"
  702. 7025 [153]F1$;"   ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
  703. 7030 [129]I[178]1[164]8
  704. 7035 [158]PR,2[170]I,1,F2$;[199](48[170]I);F1$" PEEK"
  705. 7040 [158]PR,2[170]I,38,"PEEK":[130]
  706. 7045 [158]PR,11,3,"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
  707. 7050 [158]PR,12,4,F2$;"A-C 1-8"
  708. 7055 [158]PR,12,13,F1$;"SOUND WAEHLEN"
  709. 7060 [158]PR,13,1,F2$;"_  A-C 1-8"
  710. 7065 [158]PR,13,13,F1$"SOUND ABSPEICHERN"
  711. 7070 [158]PR,14,1,F2$;"N"
  712. 7075 [158]PR,14,13,F1$;"NAMEN EINGEBEN (RETURN)"
  713. 7080 [129]S[178]0[164]2:[129]Z[178]0[164]7
  714. 7085 [158]PR,3[170]Z,4[170]S[172]12,;
  715. 7090 [158]NA,SO[170]107[172](8[172]S[170]Z)[170]97
  716. 7095 [130]:[130]:[139]NS[179]0[167]Z[178]0:S[178]0:[142]
  717. 7100 Z[178]NS[175]7:S[178][181](NS[173]8):[137]7180
  718. 7110 :
  719. 7115 :
  720. 7120 X[178]A[171]65
  721. 7122 [158]PR,12,13,F2$;"WAITSOUND WAEHLEN"
  722. 7125 [161]A$:[139]A$[178]""[167]7125
  723. 7130 Y[178][198](A$)[171]49
  724. 7135 [139]Y[179]0[176]Y[177]7[167]7142
  725. 7140 [141]7150:[141]7400
  726. 7142 [158]PR,12,13,F1$;"WAITSOUND WAEHLEN"
  727. 7144 [142]
  728. 7146 :
  729. 7150 :
  730. 7155 NS[178]8[172]S[170]Z
  731. 7160 [158]PR,3[170]Z,4[170]S[172]12,F1$;"WAIT";
  732. 7165 [158]NA,SO[170]107[172]NS[170]97
  733. 7170 :
  734. 7175 S[178]X:Z[178]Y:NS[178]8[172]S[170]Z
  735. 7180 [158]PR,3[170]Z,4[170]S[172]12,F2$;"WAIT";
  736. 7185 [158]NA,SO[170]107[172]NS[170]97
  737. 7190 [142]
  738. 7200 :
  739. 7205 :
  740. 7210 [158]PR,13,13,F2$;"WAITSOUND ABSPEICHERN"
  741. 7215 [161]A$:[139]A$[178]""[167]7215
  742. 7220 X[178][198](A$)[171]65
  743. 7225 [139]X[179]0[176]X[177]2[167]7250
  744. 7230 [161]A$:[139]A$[178]""[167]7230
  745. 7235 Y[178][198](A$)[171]49
  746. 7240 [139]Y[179]0[176]Y[177]7[167]7250
  747. 7245 [141]7150:[141]7450:[137]7260
  748. 7250 [158]PR,13,13,F1$;"WAITSOUND ABSPEICHERN"
  749. 7255 [142]
  750. 7260 [158]PR,13,13,F1$;"WAITSOUND ABSPEICHERN"
  751. 7300 :
  752. 7305 :
  753. 7310 [158]PR,14,13,F2$;"NAMEN EINGEBEN (RETURN)"
  754. 7315 X[178]12[172]S[170]4:Y[178]Z[170]3:AD[178]1024[170]40[172]Y[170]X
  755. 7320 SA[178]SO[170]107[172]NS[170]97:I[178]0
  756. 7325 [151]AD[170]I,[194](AD[170]I)[176]128
  757. 7330 [161]A$:[139]A$[178]""[167]7330
  758. 7335 A[178][198](A$):[139]A[179]32[176]A[177]95[167]7370
  759. 7340 :
  760. 7345 [158]PR,Y,X[170]I,F2$;A$;:[151]SA[170]I,A
  761. 7350 I[178]I[170]1
  762. 7355 [139]I[177]9[167]I[178]9:[137]7325
  763. 7360 [139]I[179]0[167]I[178]0
  764. 7365 [137]7325
  765. 7370 [139]A[178]29[167][151]AD[170]I,[194](AD[170]I)[175]127:[137]7350
  766. 7375 [139]A[178]157[167][151]AD[170]I,[194](AD[170]I)[175]127:I[178]I[171]1:[137]7355
  767. 7380 [139]A[179][177]13[167]7330
  768. 7385 [151]AD[170]I,[194](AD[170]I)[175]127
  769. 7390 [158]PR,14,13,F1$;"NAMEN EINGEBEN (RETURN)"
  770. 7395 [142]
  771. 7400 :
  772. 7402 :
  773. 7404 SA[178]SO[170]NS[172]107:[158]GE,SA
  774. 7406 [129]I[178]0[164]2
  775. 7408 AD[178]SA[170]7[172]I
  776. 7410 BF(I)[178][183](AD[170]73)
  777. 7412 X[178]BF(I)[173]17.0327[173]440
  778. 7414 Y[178][188](X)[173][188](2)
  779. 7416 Y[178]Y[170]4[170]9[173]12[170]49[173]1200
  780. 7418 O(I)[178][181](Y):Y[178](Y[171]O(I))[172]12
  781. 7420 T(I)[178][181](Y)
  782. 7422 OF(I)[178][181]((Y[171]T(I))[172]100[171]48.5)
  783. 7424 S(I)[178]([194](AD[170]75)[178]1)
  784. 7425 [151]981[170]I,[182](S(I))
  785. 7426 A$[178][199](49[170]I):[141]3570
  786. 7428 C(I)[178][194](AD[170]77)[175]254
  787. 7429 [151]50334[170]I,C(I):[151]984[170]I,C(I)
  788. 7430 C1(I)[178]C(I)[176]1
  789. 7431 [151]987[170]I,C1(I)
  790. 7432 AD(I)[178][194](AD[170]78)
  791. 7434 SR(I)[178][194](AD[170]79)
  792. 7436 [130]I
  793. 7438 RF[178][194](SA[170]94)
  794. 7440 EG[178]([194](SA[170]95)[178]1):[141]3740
  795. 7441 [151]990,[182](EG)
  796. 7442 SU[178]([194](SA[170]96)[178]1):[141]3840
  797. 7443 [151]991,[182](SU)
  798. 7444 [141]20000:[142]
  799. 7450 :
  800. 7452 :
  801. 7454 SA[178]SO[170]NS[172]107:[158]PU,SA
  802. 7456 [129]SN[178]0[164]2
  803. 7458 AD[178]SA[170]7[172]SN
  804. 7460 [158]DO,AD[170]73,BF(SN)
  805. 7462 [151]AD[170]75,[171]S(SN)
  806. 7464 [151]AD[170]77,C(SN)
  807. 7466 [151]AD[170]78,AD(SN)
  808. 7468 [151]AD[170]79,SR(SN)
  809. 7470 [130]SN
  810. 7472 [151]SA[170]94,RF
  811. 7474 [151]SA[170]95,[171]EG
  812. 7476 [151]SA[170]96,[171]SU
  813. 7478 [142]
  814. 7500 :
  815. 7505 :
  816. 7510 :
  817. 7515 M[178]7:PV[178]0:[158]CL:[153]"";F1$
  818. 7520 [153]" DISK"
  819. 7525 [158]PR,5,4,F2$;"F1"
  820. 7530 [158]PR,5,7,F1$;"SOUNDS LADEN"
  821. 7532 [158]PR,6,4,F2$;"F2"
  822. 7534 [158]PR,6,7,F1$;"SONG   LADEN"
  823. 7535 [158]PR,7,4,F2$;"F3"
  824. 7540 [158]PR,7,7,F1$;"SOUNDS ABSPEICHERN"
  825. 7545 [142]
  826. 7600 :
  827. 7605 :
  828. 7610 [158]PR,5,7,F2$;"SOUNDS LADEN"
  829. 7615 [158]PR,10,4,F1$;"DATEINAME";
  830. 7620 DN$[178]"SOUNDS              "
  831. 7625 [158]PR,10,16,DN$
  832. 7630 [158]PR,10,14,;:[133]DN$
  833. 7632 [158]50198:[141]2140
  834. 7635 [159]8,8,8,DN$[170]",P,R":[160]8
  835. 7640 [159]1,8,15:[132]1,A,A$,X,Y:[160]1
  836. 7645 [158]PR,12,4,"                             "
  837. 7650 [139]A[178]0[167]7660
  838. 7655 [158]PR,12,3,A;A$;X;Y:[137]7625
  839. 7660 A[178]0:[147]DN$,8,1
  840. 7665 [158]PR,5,7,F1$;"SOUNDS LADEN"
  841. 7670 NS[178][171]1:A[178]211
  842. 7675 [158]DO,56326,[181](6E7[173](24[172]TE))
  843. 7680 [139]SR[167][158]51093:[137]1550
  844. 7685 [158]MO[170]1033:[137]1550
  845. 7700 :
  846. 7705 :
  847. 7710 [158]PR,7,7,F2$;"SOUNDS ABSPEICHERN"
  848. 7715 [158]PR,10,4,F1$;"DATEINAME";
  849. 7720 DN$[178]"SOUNDS              "
  850. 7725 [158]PR,10,16,DN$
  851. 7730 [158]PR,10,14,;:[133]DN$
  852. 7735 [158]50198:[141]2140
  853. 7740 :
  854. 7745 [159]1,8,1,"@:"[170]DN$
  855. 7750 [151]252,0:[151]253,144
  856. 7755 [151]780,252
  857. 7760 [151]781,8
  858. 7765 [151]782,154
  859. 7770 [158]65496
  860. 7775 [160]1
  861. 7780 [159]1,8,15:[132]1,A,A$,X,Y:[160]1
  862. 7785 [139]A[178]0[167]7795
  863. 7790 [158]PR,12,4,A;A$;X;Y:[137]7725
  864. 7795 [158]PR,12,4,"                              "
  865. 7800 [158]PR,7,7,F1$;"SOUNDS ABSPEICHERN"
  866. 7805 [158]DO,56326,[181](6E7[173](24[172]TE))
  867. 7810 [139]SR[167][158]51093:[142]
  868. 7815 [158]50185:[142]
  869. 7900 :
  870. 7905 :
  871. 7910 [158]PR,6,7,F2$;"SONG   LADEN"
  872. 7915 [158]PR,10,4,F1$;"DATEINAME ";
  873. 7920 [158]PR,10,14,;:[133]DN$
  874. 7925 [158]50966:[141]2140
  875. 7930 [159]8,8,8,DN$[170]",P,R":[160]8
  876. 7935 [159]1,8,15:[132]1,A,A$,X,Y:[160]1
  877. 7940 [158]PR,12,4,"                             "
  878. 7945 [139]A[178]0[167]7955
  879. 7950 [158]PR,12,3,A;A$;X;Y:[137]7920
  880. 7955 A[178]0:M[178]7.5:[147]DN$,8,1
  881. 7960 [158]PR,6,7,F1$;"SONG   LADEN"
  882. 7965 M[178]7:SQ[178][171]1
  883. 7970 [158]DO,56326,[181](6E7[173](24[172]TE))
  884. 7975 [158]DO,50310,[183](39432)
  885. 7980 [158]51001
  886. 7985 [139][168]SR[167][158]50966
  887. 7990 A[178]65:[137]1550
  888. 8000 :
  889. 8010 :
  890. 8020 :
  891. 8030 [153]"LOADRETURN       ";
  892. 8035 [153]"BITTE 40 SEKUNDEN WARTEN"
  893. 8040 :
  894. 8045 :
  895. 8050 [129]I[178]0[164]22
  896. 8055 [151]828[170]I,[194](43139[170]I):[130]
  897. 8060 [129]I[178]0[164]129:[135]X:[151]851[170]I,X:[130]
  898. 8065 [151]785,169:[151]786,3
  899. 8070 :
  900. 8072 :
  901. 8074 [129]I[178]50211[164]50291
  902. 8076 [135]X:[151]I,X:[130]
  903. 8078 :
  904. 8080 :
  905. 8082 [129]I[178]0[164]11:[135]TN$(I):[130]
  906. 8100 :
  907. 8110 :
  908. 8120 [135]A$:L[178][195](A$)
  909. 8130 [145]L[137]8150,8220,8280,8310,8310
  910. 8150 :
  911. 8160 A[178][198](A$)
  912. 8170 [139]M[177][178]0[167]V%(M,A)[178]ZN:[137]8120
  913. 8180 [129]I[178]0[164]8:V%(I,A)[178]ZN:[130]
  914. 8190 [137]8120
  915. 8200 [139][200](A$,1)[179][177]"M"[167]8120
  916. 8220 :
  917. 8230 [139][200](A$,1)[179][177]"M"[167]8120
  918. 8240 A$[178][201](A$,1)
  919. 8250 [139]A$[178]"A"[167]M[178][171]1:[137]8120
  920. 8260 M[178][197](A$):[137]8120
  921. 8280 :
  922. 8290 A[178][197](A$):[137]8170
  923. 8310 :
  924. 8320 [139]A$[178]"ENDE"[167]8340
  925. 8330 ZN[178][197](A$):[137]8120
  926. 8340 :
  927. 8350 :
  928. 8360 A$[178]"Q2W3ER5T6Y7UI9O0P@-*\^;="
  929. 8370 [129]I[178]0[164]24
  930. 8380 A[178][198]([202](A$,I[170]1,1))
  931. 8390 TN%(A)[178]I
  932. 8400 [129]J[178]0[164]8:V%(J,A)[178]2000:[130]
  933. 8410 [130]I
  934. 8450 :
  935. 8455 :
  936. 8460 [129]I[178]0[164]48:TH(I)[178]2[174](I[173]12):[130]
  937. 8465 :
  938. 8470 :
  939. 8472 GS[178]828:GT[178]857:PR[178]869:DO[178]897:CL[178]959
  940. 8474 NA[178]50229:GE[178]50245:PU[178]50276
  941. 8480 SI[178]54272:MO[178]49152:FA[178]55296
  942. 8482 SO[178]36864:CI[178]56320
  943. 8484 F1$[178][199](30):F1[178]5
  944. 8490 F2$[178][199](5):F2[178]1
  945. 8495 KV$(0)[178]"TRIAN ":KF$(0)[178]"(null)(null)(null)(null)"
  946. 8500 KV$(1)[178]"SAWUP ":KF$(1)[178]"(null)(null)(null)(null)"
  947. 8505 KV$(2)[178]"SAWDWN":KF$(2)[178]"SQR(null)SQR(null)"
  948. 8510 KV$(3)[178]"SQUARE":KF$(3)[178]"(null)(null)(null)(null)"
  949. 8515 MD$(0)[178]"RESET":MD$(1)[178]"RESET"
  950. 8520 MD$(2)[178]"HOLD ":MD$(3)[178]"RUN  "
  951. 8525 BL$(0)[178]"":BL$(1)[178]" ":BL$(2)[178]"  "
  952. 8530 BL$(3)[178]"   ":BL$(4)[178]"    "
  953. 8535 BL$(5)[178]"     ":BL$(6)[178]"      "
  954. 8540 :
  955. 8545 :
  956. 8550 [129]SN[178]0[164]2
  957. 8555 [151]SI[170]7[172]SN[170]5,10:AD(SN)[178]10
  958. 8560 [151]SI[170]7[172]SN[170]6,138:SR(SN)[178]138
  959. 8565 O(SN)[178]3[170]SN:OF(SN)[178]0:T(SN)[178]0
  960. 8570 BF[178]440[172]2[174](O(SN)[171]4[170](T(SN)[171]9)[173]12[170]OF(SN)[173]1200)
  961. 8572 BF(SN)[178]BF[172]17.0327
  962. 8575 C(SN)[178]64:C1(SN)[178]65
  963. 8576 [151]984[170]SN,C(SN):[151]987[170]SN,C1(SN)
  964. 8578 [151]50334[170]SN,C(SN)
  965. 8580 S(SN)[178](SN[178]0)
  966. 8582 [151]981[170]SN,[182](S(SN))
  967. 8585 [158]DO,MO[170]7[172]SN[170]2,2048
  968. 8590 [151]MO[170]7[172]SN[170]4,0
  969. 8595 [130]SN
  970. 8600 [151]SI[170]23,0:RF[178]0
  971. 8605 [158]DO,MO[170]21,0
  972. 8610 [151]MO[170]23,15
  973. 8615 [129]I[178]24[164]72
  974. 8620 [151]MO[170]I,0:[130]
  975. 8625 EG[178]0
  976. 8627 [151]50303,0
  977. 8630 SU[178]0
  978. 8631 [151]990,[182](EG):[151]991,[182](SU)
  979. 8632 TE[178]120
  980. 8635 :
  981. 8640 :
  982. 8645 [129]NS[178]0[164]23
  983. 8650 [141]7450
  984. 8655 AD[178]SO[170]107[172]NS[170]97
  985. 8660 [129]I[178]AD[164]AD[170]9:[151]I,46:[130]
  986. 8665 [130]NS:NS[178]0
  987. 8666 [141]20000:W[178]1
  988. 8700 :
  989. 8870 :
  990. 8880 [151]53280,0:[151]53281,0
  991. 8890 [153]F1$;"WAIT";:[151]650,128
  992. 8900 [141]4200
  993. 8910 [158]MO[170]1033
  994. 8920 SQ[178]0:SM[178]0:SR[178]0:A[178]2:[142]
  995. 9000 :
  996. 9010 :
  997. 9020 :
  998. 9030 :
  999. 9060 [131]032,089,003,076,174,167,032
  1000. 9070 [131]253,174,032,138,173,032,247
  1001. 9080 [131]183,076,163,168,032,253,174
  1002. 9090 [131]032,158,183,138,072,032,253
  1003. 9100 [131]174,032,158,183,138,168,104
  1004. 9110 [131]170,024,032,240,255,032,253
  1005. 9120 [131]174,076,160,170,032,253,174
  1006. 9130 [131]032,138,173,032,247,183,165
  1007. 9140 [131]020,133,158,165,021,133,159
  1008. 9150 [131]032,253,174,032,138,173,032
  1009. 9160 [131]247,183,160,000,120,165,020
  1010. 9170 [131]145,158,200,165,021,145,158
  1011. 9180 [131]088,096,032,247,183,160,000
  1012. 9190 [131]120,177,020,133,099,200,177
  1013. 9200 [131]020,088,133,098,162,144,056
  1014. 9210 [131]076,073,188,169,032,162,000
  1015. 9220 [131]157,000,004,157,000,005,202
  1016. 9230 [131]208,247,162,087,157,000,006
  1017. 9240 [131]202,016,250,096
  1018. 9250 :
  1019. 9260 :
  1020. 9270 [131]032,253,174,032,138,173,032
  1021. 9280 [131]247,183,165,020,133,158,165
  1022. 9290 [131]021,133,159,096,032,035,196
  1023. 9300 [131]160,000,177,158,032,210,255
  1024. 9310 [131]200,192,010,208,246,096,032
  1025. 9320 [131]035,196,160,000,177,158,153
  1026. 9330 [131]000,192,200,192,073,208,246
  1027. 9340 [131]177,158,153,183,211,200,192
  1028. 9350 [131]094,208,246,177,158,141,023
  1029. 9360 [131]212,096,032,035,196,160,000
  1030. 9370 [131]185,000,192,145,158,200,192
  1031. 9380 [131]073,208,246,096
  1032. 9400 :
  1033. 9410 :
  1034. 9420 [131]C,C#,D,D#,E,F,F#,G,G#,A,A#,H
  1035. 9500 :
  1036. 9510 :
  1037. 9520 [131]MA,4000,X,3500,V,3600,032
  1038. 9530 [131]MA,3700,160,3800,S,9990,A
  1039. 9540 [131]MA,2550,133,2560,134
  1040. 9550 [131]MA,2570,135,2580,136,4500,214
  1041. 9555 [131]MA,5500,L,6000,H,6500,K
  1042. 9560 [131]MA,5000,F,7000,211,7500,D
  1043. 9565 [131]M1,4654,145,4660,017
  1044. 9570 [131]M1,4666,029,4680,157
  1045. 9580 [131]M2,5160,157,5145,029
  1046. 9600 [131]M3,5675,145,5690,017
  1047. 9610 [131]M3,5720,157,5705,029
  1048. 9620 [131]M4,6410,157,6440,029
  1049. 9630 [131]M5,6830,145,6850,017
  1050. 9640 [131]M5,6870,157,6890,029
  1051. 9650 [131]M5,6935,133,134,6975,135,136
  1052. 9700 [131]M6,7110,A,B,C,7200,_,7300,N
  1053. 9750 [131]M7,7600,133,7700,134,7900,137
  1054. 9800 [131]M8,10420,029,10450,157
  1055. 9900 [131]ENDE
  1056. 9990 :
  1057. 10000 :
  1058. 10010 :
  1059. 10020 :
  1060. 10030 M[178]8:PV[178]0:[158]CL:[153]"";F1$;
  1061. 10040 [153]" SEQUENCER";
  1062. 10045 [139][168]SQ[167][153]"  (KEIN SONG VORHANDEN)"
  1063. 10050 [158]PR,4,10,"TEMPO MODUS SEQNR  SOFT-EG"
  1064. 10060 [158]PR,5,4,"ORLENLENLENLEN=LENLENLENLENLEN=LENLENLENLENLEN=LENLENLENLENLEN=LENLENLENLENLENLENLENLENLEN^"
  1065. 10070 [158]PR,6,4,"PEEK    PEEK     PEEK     PEEK     PEEK 1  2  3 PEEK"
  1066. 10080 [158]PR,7,4,"/LENLENLENLEN>LENLENLENLENLEN>LENLENLENLENLEN>LENLENLENLENLEN>LENLENLENLENLENLENLENLENLENEXP"
  1067. 10090 [158]PR,9,1,F2$;"F1";F1$;"  RESET  ++                  1"
  1068. 10100 [158]PR,10,1,F2$;"F3";F1$;"  STOP    +  SONG    +       2"
  1069. 10110 [158]PR,11,1,F2$;"F5";F1$;"  RUN     -  SEQ     -       3"
  1070. 10120 [158]PR,12,1,F2$;"F7";F1$;"         --"
  1071. 10130 [139]SR[167]10150
  1072. 10140 [158]PR,6,5,"STOP":[137]10160
  1073. 10150 [158]PR,6,5,"RUN "
  1074. 10160 [158]PR,6,11,[201]([196](TE),3)
  1075. 10170 [139]SM[167]10190
  1076. 10180 [158]PR,6,16,"SONG":[137]10210
  1077. 10190 [158]PR,6,16,"SEQ "
  1078. 10200 [158]PR,6,22,[201](" "[170][196](SE),3)
  1079. 10210 :
  1080. 10220 X[178][194](50303)
  1081. 10230 [139]X[175]1[167][158]PR,6,28," 1 "
  1082. 10240 [139]X[175]2[167][158]PR,6,31," 2 "
  1083. 10250 [139]X[175]4[167][158]PR,6,34," 3 "
  1084. 10300 AV[178]10500:[158]GS,AV:[142]
  1085. 10400 :
  1086. 10410 :
  1087. 10420 :
  1088. 10430 AV[178]AV[170]100:[139]AV[177]10900[167]AV[178]10500
  1089. 10440 [137]10470
  1090. 10450 :
  1091. 10460 AV[178]AV[171]100:[139]AV[179]10500[167]AV[178]10900
  1092. 10470 [129]I[178]PB[164]PB[170]8:[151]I,F1:[130]
  1093. 10480 [158]GT,AV
  1094. 10500 :
  1095. 10510 :
  1096. 10520 PB[178]FA[170]245
  1097. 10530 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  1098. 10540 PA[178]CI[170]12:PV[178]11000:[142]
  1099. 10600 :
  1100. 10610 :
  1101. 10620 PB[178]FA[170]250
  1102. 10630 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  1103. 10640 PA[178]CI[170]6:PW[178]TE
  1104. 10650 PM[178]500:P1[178]1:P2[178]10:PV[178]3400:[142]
  1105. 10700 :
  1106. 10710 :
  1107. 10720 PB[178]FA[170]256
  1108. 10730 [129]I[178]PB[164]PB[170]3:[151]I,F2:[130]
  1109. 10740 PA[178]50345:PW[178][194](PA)
  1110. 10750 PV[178]11100:[142]
  1111. 10800 :
  1112. 10810 :
  1113. 10820 PB[178]FA[170]262
  1114. 10830 [129]I[178]PB[164]PB[170]2:[151]I,F2:[130]
  1115. 10840 PW[178]SE:P1[178]1:P2[178]1:PM[178]1000
  1116. 10850 PV[178]11200:[142]
  1117. 10900 :
  1118. 10910 :
  1119. 10920 PB[178]FA[170]268
  1120. 10930 [129]I[178]PB[164]PB[170]8:[151]I,F2:[130]
  1121. 10940 PA[178]50303:PV[178]11300:[142]
  1122. 11000 :
  1123. 11010 :
  1124. 11015 [139][168]SQ[167][142]
  1125. 11020 [139]A[179]133[176]A[177]135[167][142]
  1126. 11030 [145]A[171]132[137]11040,11060,11080
  1127. 11040 :
  1128. 11042 [139]SM[167][158]51116:[142]
  1129. 11045 [158]51001
  1130. 11050 [139][168]SR[167][158]50966
  1131. 11055 [142]
  1132. 11060 :
  1133. 11065 [158]50966:[158]PR,6,5,F2$;"STOP"
  1134. 11070 SR[178]0:[139][168]SU[167]2140
  1135. 11075 [142]
  1136. 11080 :
  1137. 11085 [158]51093:[158]PR,6,5,F2$;"RUN"
  1138. 11090 SR[178][171]1:[142]
  1139. 11100 :
  1140. 11110 :
  1141. 11112 [139][168]SQ[167][142]
  1142. 11115 [139]A[178]134[167]11130
  1143. 11120 [139]A[178]135[167]11150
  1144. 11125 [142]
  1145. 11130 :
  1146. 11135 SM[178]0:[151]PA,0
  1147. 11140 [158]PR,6,16,F2$;"SONG"
  1148. 11145 [158]PR,6,22,"     ":[142]
  1149. 11150 :
  1150. 11155 SM[178][171]1:[151]PA,1:[158]PR,6,16,"SEQ "
  1151. 11160 [158]PR,6,16,F2$;"SEQ "
  1152. 11165 SE[178]([183](50312)[171][183](50310))[173]3[170]1
  1153. 11170 [158]PR,6,22,F1$;[201](" "[170][196](SE),3)
  1154. 11175 [142]
  1155. 11200 :
  1156. 11210 :
  1157. 11220 [139][168]SM[167][142]
  1158. 11230 [139]PW[178]0[167]PW[178]1:[142]
  1159. 11240 AD[178][183](50310)[170](PW[171]1)[172]3
  1160. 11250 [139][183](AD)[178]0[167]PW[178]PW[171]1:[142]
  1161. 11260 [158]DO,50312,AD:SE[178]PW
  1162. 11270 [158]DO,50314,[183](AD)
  1163. 11280 [158]51116
  1164. 11285 [158]PR,6,22,F2$;[201](" "[170][196](SE),3)
  1165. 11290 [142]
  1166. 11300 :
  1167. 11310 :
  1168. 11320 X[178][194](PA)
  1169. 11330 [129]I[178]0[164]2
  1170. 11340 [139]A[179][177]133[170]I[167]11420
  1171. 11350 Y[178]2[174]I
  1172. 11360 [139](X[175]Y)[167]11400
  1173. 11370 X[178]X[176]Y:[151]PA,X
  1174. 11380 [158]PR,6,28[170]3[172]I,F2$;"";I[170]1;"CMD "
  1175. 11390 [137]11420
  1176. 11400 X[178]X[175](255[171]Y):[151]PA,X
  1177. 11410 [158]PR,6,28[170]3[172]I,F2$;I[170]1;"CMD "
  1178. 11420 [130]I:[142]
  1179. 20000 [139]W[178]1[167][158]PR,18,1,;"SH W     WERSIBOARD STIMMENWAIT"
  1180. 20010 [129]XX[178]0[164]2:ZZ[178][171]2
  1181. 20020 [129]YY[178]0[164]48
  1182. 20025 ZZ[178]ZZ[170]2
  1183. 20030 WW[178]TH(YY)[172]BF(XX)
  1184. 20040 [139]WW[177]65535[167]WW[178]0
  1185. 20050 [158] DO,52950[170](98[172]XX)[170]ZZ,WW
  1186. 20060 [130]YY,XX
  1187. 20070 [139]W[178]1[167][158]PR,18,1,;"SH W     WERSIBOARD STIMMEN"
  1188. 20080 [142]
  1189.